home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / ERRORS.ICN < prev    next >
Text File  |  1990-03-28  |  8KB  |  125 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure p1()
  4.    write("seq(\"a\") | monitor(&line) ----> ",image(seq("a") | monitor(&line)) | "none")
  5.    write("\"|\"(1,2) | monitor(&line) ----> ",image("|"(1,2) | monitor(&line)) | "none")
  6.    write("member(x,x) | monitor(&line) ----> ",image(member(x,x) | monitor(&line)) | "none")
  7.    write("set([]) ++ 'a' | monitor(&line) ----> ",image(set([]) ++ 'a' | monitor(&line)) | "none")
  8.    write("every i := 1 to *a - 1 by 2 do write(image(a[i]),\" \",a[i + 1]) | monitor(&line) ----> ",image(every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1]) | monitor(&line)) | "none")
  9.    write("every i := 1 to *a - 1 by 2 do write(image(a[i]),\" \",a[i + 1]) | monitor(&line) ----> ",image(every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1]) | monitor(&line)) | "none")
  10.    write("c |||:= s | monitor(&line) ----> ",image(c |||:= s | monitor(&line)) | "none")
  11.    write("?&null | monitor(&line) ----> ",image(?&null | monitor(&line)) | "none")
  12.    write("c[1] | monitor(&line) ----> ",image(c[1] | monitor(&line)) | "none")
  13.    write("image + image | monitor(&line) ----> ",image(image + image | monitor(&line)) | "none")
  14.    write(".1(s[1],s := &null) | monitor(&line) ----> ",image(.1(s[1],s := &null) | monitor(&line)) | "none")
  15. end
  16.  
  17. procedure p2()
  18.    write("display(,[]) | monitor(&line) ----> ",image(display(,[]) | monitor(&line)) | "none")
  19.    write("[] ~== \"x\" | monitor(&line) ----> ",image([] ~== "x" | monitor(&line)) | "none")
  20.    write("x + 1 | monitor(&line) ----> ",image(x + 1 | monitor(&line)) | "none")
  21.    write("\"a\"(1,2,3) | monitor(&line) ----> ",image("a"(1,2,3) | monitor(&line)) | "none")
  22.    write("\"o\" + 0 | monitor(&line) ----> ",image("o" + 0 | monitor(&line)) | "none")
  23.    write("&cset ++ [] | monitor(&line) ----> ",image(&cset ++ [] | monitor(&line)) | "none")
  24.    write("every 1 to \"a\" | monitor(&line) ----> ",image(every 1 to "a" | monitor(&line)) | "none")
  25.    write("!image | monitor(&line) ----> ",image(!image | monitor(&line)) | "none")
  26. end
  27.  
  28. procedure p3()
  29.    write("0 to 0 by 0 | monitor(&line) ----> ",image(0 to 0 by 0 | monitor(&line)) | "none")
  30.    write("repl(\"b\",\"a\") | monitor(&line) ----> ",image(repl("b","a") | monitor(&line)) | "none")
  31.    write("t(t) | monitor(&line) ----> ",image(t(t) | monitor(&line)) | "none")
  32.    write("sort(&cset) | monitor(&line) ----> ",image(sort(&cset) | monitor(&line)) | "none")
  33.    write("pull(&null) | monitor(&line) ----> ",image(pull(&null) | monitor(&line)) | "none")
  34.    write("c[-4] | monitor(&line) ----> ",image(c[-4] | monitor(&line)) | "none")
  35.    write("type(type)(type) | monitor(&line) ----> ",image(type(type)(type) | monitor(&line)) | "none")
  36.    write("r[r] | monitor(&line) ----> ",image(r[r] | monitor(&line)) | "none")
  37.    write("[] ** \"abc\" | monitor(&line) ----> ",image([] ** "abc" | monitor(&line)) | "none")
  38.    write("'abc' ~= ('abc' ++ '') | monitor(&line) ----> ",image('abc' ~= ('abc' ++ '') | monitor(&line)) | "none")
  39. end
  40.  
  41. procedure p4()
  42.    write("&lcase || numeric | monitor(&line) ----> ",image(&lcase || numeric | monitor(&line)) | "none")
  43.    write("x[\"a\"] | monitor(&line) ----> ",image(x["a"] | monitor(&line)) | "none")
  44.    write("100-() | monitor(&line) ----> ",image(100-() | monitor(&line)) | "none")
  45.    write("(1 := y) & &fail | monitor(&line) ----> ",image((1 := y) & &fail | monitor(&line)) | "none")
  46.    write("a[1:3] := a | monitor(&line) ----> ",image(a[1:3] := a | monitor(&line)) | "none")
  47.    write("a[3] :=: a3[&null] | monitor(&line) ----> ",image(a[3] :=: a3[&null] | monitor(&line)) | "none")
  48.    write("a5[a5] | monitor(&line) ----> ",image(a5[a5] | monitor(&line)) | "none")
  49.    write("pull[c] | monitor(&line) ----> ",image(pull[c] | monitor(&line)) | "none")
  50.    write("&subject := [] | monitor(&line) ----> ",image(&subject := [] | monitor(&line)) | "none")
  51.    write("[] ? [] | monitor(&line) ----> ",image([] ? [] | monitor(&line)) | "none")
  52.    write("+\"a\" | monitor(&line) ----> ",image(+"a" | monitor(&line)) | "none")
  53. end
  54.  
  55. procedure p5()
  56.    write("i <= [] | monitor(&line) ----> ",image(i <= [] | monitor(&line)) | "none")
  57.    write("[] ^ i | monitor(&line) ----> ",image([] ^ i | monitor(&line)) | "none")
  58.    write("s ?:= &subject[3] | monitor(&line) ----> ",image(s ?:= &subject[3] | monitor(&line)) | "none")
  59.    write("s >>:= 0 | monitor(&line) ----> ",image(s >>:= 0 | monitor(&line)) | "none")
  60.    write("s = 0 | monitor(&line) ----> ",image(s = 0 | monitor(&line)) | "none")
  61.    write("put(s) | monitor(&line) ----> ",image(put(s) | monitor(&line)) | "none")
  62.    write("'abc' = ('abc' ++ '') | monitor(&line) ----> ",image('abc' = ('abc' ++ '') | monitor(&line)) | "none")
  63.    write("=[] | monitor(&line) ----> ",image(=[] | monitor(&line)) | "none")
  64.    write("(1 <-> y) & &fail | monitor(&line) ----> ",image((1 <-> y) & &fail | monitor(&line)) | "none")
  65.    write("!&null | monitor(&line) ----> ",image(!&null | monitor(&line)) | "none")
  66.    write("2 \\ \"a\" | monitor(&line) ----> ",image(2 \ "a" | monitor(&line)) | "none")
  67. end
  68.  
  69. procedure p6()
  70.    write("right(\"\",\"\") | monitor(&line) ----> ",image(right("","") | monitor(&line)) | "none")
  71.    write("close(\"F\") | monitor(&line) ----> ",image(close("F") | monitor(&line)) | "none")
  72.    write("trim(&lcase,[]) | monitor(&line) ----> ",image(trim(&lcase,[]) | monitor(&line)) | "none")
  73.    write("list([]) | monitor(&line) ----> ",image(list([]) | monitor(&line)) | "none")
  74.    write("reads(f,0) | monitor(&line) ----> ",image(reads(f,0) | monitor(&line)) | "none")
  75.    write("read(\"f\") | monitor(&line) ----> ",image(read("f") | monitor(&line)) | "none")
  76.    write("bal([],,,\"\") | monitor(&line) ----> ",image(bal([],,,"") | monitor(&line)) | "none")
  77.    write("pos(\"a\") | monitor(&line) ----> ",image(pos("a") | monitor(&line)) | "none")
  78.    write("\"abcdef\" ? (tab(0) & (while write(move(\"a\")))) | monitor(&line) ----> ",image("abcdef" ? (tab(0) & (while write(move("a")))) | monitor(&line)) | "none")
  79.    write("2 % \"a\" | monitor(&line) ----> ",image(2 % "a" | monitor(&line)) | "none")
  80. end
  81.  
  82. procedure p7()
  83.    write("2 * \"a\" | monitor(&line) ----> ",image(2 * "a" | monitor(&line)) | "none")
  84.    write("2 / \"a\" | monitor(&line) ----> ",image(2 / "a" | monitor(&line)) | "none")
  85.    write("2 + \"a\" | monitor(&line) ----> ",image(2 + "a" | monitor(&line)) | "none")
  86.    write("-36 ^ -9 | monitor(&line) ----> ",image(-36 ^ -9 | monitor(&line)) | "none")
  87.    write("2 < \"a\" | monitor(&line) ----> ",image(2 < "a" | monitor(&line)) | "none")
  88.    write("0 > &null | monitor(&line) ----> ",image(0 > &null | monitor(&line)) | "none")
  89.    write("2 <= \"a\" | monitor(&line) ----> ",image(2 <= "a" | monitor(&line)) | "none")
  90.    write("2 > \"a\" | monitor(&line) ----> ",image(2 > "a" | monitor(&line)) | "none")
  91.    write("2 = \"a\" | monitor(&line) ----> ",image(2 = "a" | monitor(&line)) | "none")
  92.    write("2 ~= \"a\" | monitor(&line) ----> ",image(2 ~= "a" | monitor(&line)) | "none")
  93.    write("list(10) ||| \"abc\" | monitor(&line) ----> ",image(list(10) ||| "abc" | monitor(&line)) | "none")
  94. end
  95.  
  96. procedure p8()
  97.    write("x :=: \"a\" | monitor(&line) ----> ",image(x :=: "a" | monitor(&line)) | "none")
  98.    write("x <-> \"b\" | monitor(&line) ----> ",image(x <-> "b" | monitor(&line)) | "none")
  99.    write("(x & 2 & 3 & 4) := 3 | monitor(&line) ----> ",image((x & 2 & 3 & 4) := 3 | monitor(&line)) | "none")
  100.    write("(1 <- y) & &fail | monitor(&line) ----> ",image((1 <- y) & &fail | monitor(&line)) | "none")
  101.    write("-36. ^ -9. | monitor(&line) ----> ",image(-36. ^ -9. | monitor(&line)) | "none")
  102. end
  103.  
  104. procedure main()
  105.    &error := -1
  106.    p1()
  107.    p2()
  108.    p3()
  109.    p4()
  110.    p5()
  111.    p6()
  112.    p7()
  113.    p8()
  114.    write("stop('testing stop') | monitor(&line) ----> ",image(stop('testing stop') | monitor(&line)) | "none")
  115. end
  116.  
  117. procedure monitor(line)
  118.    write("\nerror in line ",line,":")
  119.    write("   &error = ",&error)
  120.    write("   &errornumber = ",&errornumber)
  121.    write("   &errortext = ",image(&errortext))
  122.    write("   &errorvalue = ",image(&errorvalue))
  123.    return
  124. end
  125.